Public Class frpt_bdtk

    Private Sub LOPBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Validate()
        Me.bdslop.EndEdit()
        Me.talop.Update(Me.Dslop.LOP)

    End Sub

    Private Sub frpt_bdtk_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        talop.Fill(Dslop.LOP)

    End Sub

    Private Sub rpt_bdtk1_InitReport(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rpt_bdtk1.InitReport
        rpt_bdtk1.ParameterFields("@tl").CurrentValues.AddValue(cmbtenlop.Text.Trim)
    End Sub

    Private Sub rpt_bdtk1_RefreshReport(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rpt_bdtk1.RefreshReport
        rpt_bdtk1.ParameterFields("@tl").CurrentValues.AddValue(cmbtenlop.Text.Trim)
    End Sub

    Private Sub btnmanhinh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmanhinh.Click
        rpt_bdtk1.ParameterFields("@tl").CurrentValues.Clear()
        CrystalReportViewer1.RefreshReport()
    End Sub

    Private Sub btnmayin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmayin.Click
        rpt_bdtk1.ParameterFields("@tl").CurrentValues.Clear()
        CrystalReportViewer1.RefreshReport()
        CrystalReportViewer1.PrintReport()
    End Sub

    Private Sub btnthoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnthoat.Click
        Close()
    End Sub
End Class